home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Borland / Borland Pascal with Objects 7.0 / UTILDEMO.ZIP / RTMRES.PAS < prev   
Pascal/Delphi Source File  |  1992-10-27  |  1KB  |  59 lines
  1. {************************************************}
  2. {                                                }
  3. {   RTM Loader Demo                              }
  4. {   Copyright (c) 1992 by Borland International  }
  5. {                                                }
  6. {************************************************}
  7.  
  8. program RTMRes;
  9.  
  10. {$M 2048,0,0}
  11.  
  12. uses Dos;
  13.  
  14. procedure PrintStr(const S: String); assembler;
  15. asm
  16.     PUSH    DS
  17.     LDS        SI,S
  18.     CLD
  19.     LODSB
  20.     XOR        AH,AH
  21.     XCHG    AX,CX
  22.     MOV        AH,40H
  23.     MOV        BX,1
  24.     MOV        DX,SI
  25.     INT        21H
  26.     POP        DS
  27. end;
  28.  
  29. var
  30.   Command: PathStr;
  31.   Parameters: String;
  32.   I: Integer;
  33.  
  34. begin
  35.   PrintStr('RTMRes  Version 1.0  Copyright (c) 1992 by Borland International'#10#13);
  36.   SwapVectors;
  37.   Command := '';
  38.   Parameters := '';
  39.   if ParamCount > 0 then
  40.   begin
  41.     Command := FSearch(ParamStr(1), GetEnv('PATH'));
  42.     if Command = '' then
  43.     begin
  44.       Command := GetEnv('COMSPEC');
  45.       Parameters := '/C ' + ParamStr(1) + ' ';
  46.     end;
  47.     for I := 2 to ParamCount do
  48.       Parameters := Parameters + ' ' + ParamStr(I);
  49.   end
  50.   else
  51.   begin
  52.     PrintStr('RTM Resident.  Type ''EXIT'' to uninstall.'#10#13);
  53.     Command := GetEnv('COMSPEC');
  54.   end;
  55.   Exec(Command, Parameters);
  56.   SwapVectors;
  57.   PrintStr('RTM Unloaded.'#10#13);
  58. end.
  59.